#! /usr/bin/perl

print "{~ Meta\n";
while (<>) {
  next if /(([{]~)|(~[}])|(require))( |$)/;
  s/\\ .*$//;
  print $_;
}
print "~}\n";
